home *** CD-ROM | disk | FTP | other *** search
- %case doChoice%
- %DoChoice%
- %case itemNr%
- %DefineItem%
- %case classDecl%
-
- TYPE
- %classname% = OBJECT (%superclass%)
- OVERRIDE METHOD DrawCell (aCell: GridCell;
- aQDRect: Rect);
- (*${QINSPECTOR*)
- OVERRIDE METHOD Fields (DoToField: DoToFieldMETHOD);
- (*$}*)
- END(*%classname%*);
- %case gDeadStripSuppression%
- %StripSuppression%
- %case classMethods%
- (*----------*)
- METHOD %classname%.DrawCell (aCell: GridCell;
- aQDRect: Rect);
- BEGIN
- (*. replace with something useful .*)
- END DrawCell;
-
- %ClassMethods%
- %case defImports%
- FROM Types IMPORT
- Rect;
- FROM UGridView IMPORT
- TGridView, GridCell;
- %case modImports%
- FROM Types IMPORT
- Rect;
- FROM UGridView IMPORT
- GridCell;
-